1 PRINT"[147]":POKE53280,1:POKE53281,1
2 PRINT"";
3 PRINT"THE SUMMER OF 64 VERY PROUDLY PRESENTS:"
10 V=53248
11 POKEV+21,4
12 POKE2042,13
20 FORN=0TO59:READQ:POKE832+N,Q:NEXT
25 POKEV+23,4:POKEV+29,4:REMEXPAND
55 FOR X=0TO70
60 POKEV+4,X
65 POKEV+5,X
70 NEXTX
80 FOR A=70TO150
90 POKEV+4,A
95 POKEV+5,70
100 NEXTA
102 FORB=150 TO255
104 POKEV+4,B
106 NEXTB
108 FORC=70TO40STEP-1
110 POKEV+5,C
112 NEXTC
114 FORD=255TO130STEP-1
116 POKEV+4,D
118 POKEV+5,40
120 NEXTD
122 FORE=40TO55
124 POKEV+5,E
126 NEXT E
128 FORF=130TO70STEP-1
130 POKEV+4,F
132 NEXTF
134 FORG=55TO45STEP-1
136 POKEV+5,G
138 NEXTG
140 FOR L=70TO13STEP-1
150 POKEV+4,L
160 NEXTL
162 FORM=45TO55
164 POKEV+5,M
165 FORN=1TO50:NEXTN
166 NEXTM
168 FORP=55TO100
170 POKEV+5,P
172 FORQ=1TO10:NEXTQ
174 NEXTP
190 PRINT"[145][145][145]"
192 FORK=1TO40
195 FORJ=1TO50:NEXTJ:GOTO300
197 PRINT" ";
199 NEXTK:GOTO700
200 DATA 0,0,0,0,0,0,0,0,0,0,0,0
210 DATA 79,255,242,72,0,18,73,129,146
220 DATA 121,129,158,72,34,18,72,62,18
230 DATA 72,0,18,79,255,240,0,60,0
240 DATA 1,255,128,0,60,0,0,60,0
250 DATA 3,255,224,2,0,32,2,0,32,2,0,32
300 REM TOENE
310 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24
320 POKEL,15
330 POKEA,16+15
340 POKEH,9*16+14
350 POKEFH,155:POKEFL,179
360 POKEW,17
363 FORT=1TO80 :NEXTT
365 POKEW,0:POKEA,0:POKEH,0
370 GOTO 197
700 PRINT"[147]":PRINTCHR$(147)
701 POKEV+21,0
705 POKE53281,13:POKE53280,13
710 PRINT""
740 PRINT"[209]  [209] [209]  [209] [209][209][209][209] [209][209][209][209] [209][209][209][209]
742 [153]"(null)  (null) (null)  (null) (null)  (null) (null)  (null) (null)  (null)
744 PRINT"[209][209][209][209] [209][209][209][209] [209][209][209][209] [209][209][209][209] [209][209][209][209]
745 [153]"(null)  (null)   (null)  (null)    (null)(null)   (null)  (null)
746 PRINT"[209]  [209]  [209]   [209]    [209] [209][209] [209]  [209]
748 [153]"
749 PRINT"
750 [153]"(null)   (null) (null)(null)(null)(null) (null)(null)(null)(null) (null)(null)(null)  (null)   (null)(null)(null)(null)
752 PRINT"[209][209]  [209] [209]  [209] [209]  [209] [209]  [209] [209]   [209]
754 [153]"(null) (null) (null) (null)  (null) (null)  (null) (null)  (null) (null)   (null)(null)
756 PRINT"[209]  [209][209] [209]  [209] [209]  [209] [209]  [209] [209]   [209]
758 [153]"(null)   (null) (null)(null)(null)(null) (null)(null)(null)(null) (null)(null)(null)  (null)(null)(null) (null)(null)(null)(null)
760 PRINT"PROGRAMMED BY SPUTNIK BOOSTER"
761 PRINT""
762 PRINT"BESCHWERDEN ZU DIESEM SPIEL BITTE AN:  "
764 PRINT"      ERDUMLAUFBAHNGIRAFFE*GMX.DE"
1000 REM SEXUALORGAN
1010 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24
1020 POKEL,15
1030 POKEA,16+15
1040 POKEH,9*16+14
1065 POKEFH,42 :POKEFL,10
1067 POKEW,17
1070 FORT=1TO300:NEXTT
1080 POKEFH,37 :POKEFL,9
1085 POKEW,17
1090 FORT=1TO300:NEXT
1100 POKEFH,31 :POKEFL,7
1105 POKEW,17
1110 FORT=1TO300:NEXTT
1120 POKEFH,35:POKEFL,8
1130 POKEW,17
1140 FORT=1TO150:NEXTT
1150 POKEFH,37:POKEFL,9
1160 POKEW,17
1170 FORT=1TO600:NEXTT
1180 POKEFH,31:POKEFL,31
1190 POKEW,17
1200 FORT=1TO300
1210 POKEFH,29:POKEFL,29
1220 POKEW,17
1230 FORT=1TO300:NEXTT
1240 POKEFH,28:POKEFL,28
1250 POKEW,17
1260 FORT=1TO150:NEXTT
1270 POKEFH,25:POKEFL,25
1280 POKEW,17
1290 FORT=1TO300
1300 POKEFH,21:POKEFL,21
1310 POKEW,17
1320 FORT=1TO600:NEXTT
1325 C%=1
1327 D%=249
1330 FORDT=1TO249
1335 C%=C%+1
1337 D%=D%-1
1340 POKEFH,C%:POKEFL,D%
1350 POKEW,17
1360 FORT=1TO5 :NEXTT
1370 NEXTDT
1400 POKEW,0:POKEA,0:POKEH,0
7100 Q%=2
7200 V%=28
7400 REM DHF
7500 PRINT"[147]":POKE53281,0:POKE53280,0
7506 PRINT"SCORE:";X%
7510 V=53248
7520 POKEV+21,4
7521 POKE2043,13
7522 X=150
7524 Y=100
7525 POKEV+4,X
7526 POKEV+5,Y
7527 PRINT" RUN FOR YOUR LIFE!!!!!!";
7528 FORA=1TO800:NEXTA
7529 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                         "
7531 POKEV+21,V%
7533 POKE2044,13
7534 POKE2041,13
7555 POKEV+4,X
7557 POKEV+5,Y
7559 POKEV+23,12:POKEV+29,12
7560 POKEV+4,X
7561 POKEV+5,100
7564 POKEV+23,30:POKEV+29,30
7575 F=INT(189*RND(1)):X%=X%+1
7576 C=20
7577 GOTO7600
7578 I=50+INT(129*RND(1)):X%=X%+1
7579 G=20
7580 RK=INT(189*RND(1)):X%=X%+1
7582 RM=189
7599 REM JOYST.ABFRAGEBEGIN************
7600 J=PEEK(56320):GOTO9500
7601 GOTO9700
7603 IFX>=F-38ANDX<=F+38THENGOTO7608
7604 IFY>=C-30ANDY<=C+30THENGOTO7606
7605 GOTO7609
7606 IFX>=F-38ANDX<=F+38THENGOTO10000
7607 GOTO7609
7608 IFY>=C-30ANDY<=C+30THENGOTO10000
7609 PRINT"TRIES";H%
7610 PRINT"SCORE:";X%:IFX%=5 THENGOTO11000
7611 IF(JAND6)=0THENS=-12:T=12:GOTO9000
7612 IF(JAND10)=0THENS=12:T= 12:GOTO9000
7613 IF(JAND5)=0THENS=-12:T=-12:GOTO9000
7614 IF(JAND9)=0THENS= 12:T=-12:GOTO9000
7619 IF(JAND8)=0THENS=16:T=0:GOTO9000
7620 IF(JAND1)=0THENS=0:T=-16:GOTO9000
7630 IF(JAND2)=0THENS=0:T=16:GOTO9000
7640 IF(JAND4)=0THENS=-16:T=0::GOTO9000
7645 GOTO 9040
8099 REM******JOYST.ABFRAGE ENDE*******
9000 X=X+S
9010 Y=Y+T
9020 POKEV+4,X
9030 POKEV+5,Y
9035 S=0:T=0
9040 POKEV+6,F
9050 C=C+8
9060 POKEV+7,C:IFC>247THENGOTO7575
9061 G=G+8
9062 POKEV+8,G
9065 POKEV+9,I
9066 IFQ%=5THENGOTO9068:GOTO9087
9067 GOTO9087
9068 RM=RM-12
9069 POKEV+2,RK
9070 POKEV+3,RM
9080 IFRM<50THENGOTO7580
9081 IFRM>240THENGOTO7580
9087 IFG>247THENGOTO7578
9088 IFX<50THENX=X+16:GOTO7600
9089 IFX>230THENX=X-16:GOTO7600
9090 IFY<50THENY=Y+16:GOTO7600
9100 IFY>190THENY=Y-16:GOTO7600
9200 GOTO7600
9500 IFX>=G-38ANDX<=G+38THENGOTO9550
9510 IFY>=I-30ANDY<=I+30THENGOTO9600
9520 GOTO7601
9550 IFY>=I-30ANDY<=I+30THENGOTO10000
9560 GOTO7601
9600 IFX>=G-38ANDX<=G+38THENGOTO10000
9610 GOTO7601
9700 IFX>=RK-38ANDX<=RK+38THENGOTO9750
9710 IFY>=RM-30ANDY<=RM+30THENGOTO9730
9720 GOTO7603
9730 IFX>=RK-38ANDX<=RK+38THENGOTO10000
9740 GOTO7603
9750 IFY>=RM-30ANDY<=RM+30THENGOTO10000
9760 GOTO7603
10000 REM
10001 POKEV+21,0
10005 POKE53281,7:POKE53280,7
10010 PRINT"LOST A LIFE SWEETIE!!!!!!!"
10020 FORA=1TO1000
10021 REM NEXT
10022 NEXTA
10024 H%=H%+1:IFH%=5THENH%=0:GOTO10040
10030 RM=20:G=20: GOTO7400
10040 PRINT"[147]":POKE53281,13:POKE53280,13
10050 PRINT"GAME OVER!!!!!!!"
10060 FORB=1TO2000
10070 REM NEXT
10080 NEXTB
10090 PRINT"[147]":POKE53281,6:POKE53280,6
10095 PRINT"WRITTEN IN MARCH 2000 BY SPUTNIK BOOSTER";
10096 PRINT" IN COOPERATION WITH THE SUMMER OF 64"
10097 PRINT"GET SPUTNIK BOOSTER 8 BIT 8 TRACK DEMO-CD AT ";
10098 PRINT"ERDUMLAUFBAHNGIRAFFE*GMX.DE VERSION 01/2004"
10100 END
11000 REM****
11040 Q%=5:V%=30
11100 GOTO7531